(modify_lower_category_set): Set default value of

TABLE correctly.

diff --git a/src/category.c b/src/category.c
index 99f8a5a3bf2a30ac4e14111b13b5cd7879b63b73..eb1e8c9afaf210a8c2a12110d0bc90c5a878cb2f 100644 (file)
--- a/src/category.c
+++ b/src/category.c
@@ -314,12 +314,11 @@ modify_lower_category_set (table, category, set_value)
   Lisp_Object val;
   int i;
 
-  if (NILP (XCHAR_TABLE (table)->defalt))
-    {
-      val = MAKE_CATEGORY_SET;
-      SET_CATEGORY_SET (val, category, set_value);
-      XCHAR_TABLE (table)->defalt = val;
-    }
+  val = XCHAR_TABLE (table)->defalt;
+  if (!CATEGORY_SET_P (val))
+    val = MAKE_CATEGORY_SET;
+  SET_CATEGORY_SET (val, category, set_value);
+  XCHAR_TABLE (table)->defalt = val;
 
   for (i = 32; i < SUB_CHAR_TABLE_ORDINARY_SLOTS; i++)
     {